home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / dev / misc / Hunk.lha / Hunk / Hoppers / Asl_Add.hop < prev    next >
Text File  |  1998-02-14  |  2KB  |  88 lines
  1. ;*************************************************************************
  2. ;** General Optimizer PC Absolute to Relative                           **
  3. ;** Contributor: Jess                             Jan 30th  1998  **
  4. ;** Replace asl.l #1, by add ,                         **
  5. ;*************************************************************************
  6.  
  7.  
  8. ;*************************************************************************
  9. ;
  10. ; lsl.b #$1,Dx -> add.b Dx,Dx
  11. ;
  12. #match
  13. #code
  14. %1110001100000XXX   =# SourceReg    ;LSL.B #$1,Dx
  15. ;
  16. ;
  17. #replace
  18. %1101XXX000000XXX   =# SourceReg |< 9    ;ADD.B Dx,Dx
  19. #end
  20.  
  21. ;*************************************************************************
  22. ;
  23. ; asl.b #$1,Dx -> add.b Dx,Dx
  24. ;
  25. #match
  26. #code
  27. %1110001100001XXX   =# SourceReg    ;ASL.B #$1,Dx
  28. ;
  29. ;
  30. #replace
  31. %1101XXX000000XXX   =# SourceReg |< 9    ;ADD.B Dx,Dx
  32. #end
  33.  
  34.  
  35. ;*************************************************************************
  36. ;
  37. ; lsl.w #$1,Dx -> add.w Dx,Dx
  38. ;
  39. #match
  40. #code
  41. %1110001101000XXX   =# SourceReg    ;LSL.W #$1,Dx
  42. ;
  43. ;
  44. #replace
  45. %1101XXX001000XXX   =# SourceReg |< 9    ;ADD.W Dx,Dx
  46. #end
  47.  
  48. ;*************************************************************************
  49. ;
  50. ; asl.w #$1,Dx -> add.b Dx,Dx
  51. ;
  52. #match
  53. #code
  54. %1110001101001XXX   =# SourceReg    ;ASL.W #$1,Dx
  55. ;
  56. ;
  57. #replace
  58. %1101XXX001000XXX   =# SourceReg |< 9    ;ADD.W Dx,Dx
  59. #end
  60.  
  61.  
  62. ;*************************************************************************
  63. ;
  64. ; lsl.l #$1,Dx -> add.l Dx,Dx
  65. ;
  66. #match
  67. #code
  68. %1110001110000XXX   =# SourceReg    ;LSL.L #$1,Dx
  69. ;
  70. ;
  71. #replace
  72. %1101XXX010000XXX   =# SourceReg |< 9    ;ADD.L Dx,Dx
  73. #end
  74.  
  75. ;*************************************************************************
  76. ;
  77. ; asl.l #$1,Dx -> add.l Dx,Dx
  78. ;
  79. #match
  80. #code
  81. %1110001110001XXX   =# SourceReg    ;ASL.L #$1,Dx
  82. ;
  83. ;
  84. #replace
  85. %1101XXX010000XXX   =# SourceReg |< 9    ;ADD.L Dx,Dx
  86. #end
  87.  
  88.